home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / mus / misc / HDFreQ38_092.lha / HD_Freq / English < prev    next >
Text File  |  1980-01-01  |  4KB  |  185 lines
  1. ; $VER: HDF Install V 2.1 (04.03.95)
  2. ; Script to install HD Frequency
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7.  
  8.  
  9. (set #bad-kick
  10. (cat "You need at least Kickstart Kickstart 2.04 "
  11.      "to run this program."
  12. ))
  13.  
  14. (set #introduction
  15. (cat "\n\nThis program installs HD Frequency Release 2 "
  16.      "on your harddrive.\n\n"
  17.      "Please check you manual to install the correct version."
  18.      ))
  19.  
  20. (set #ask-function
  21. (cat "Please choose the version to install:"
  22. ))
  23.  
  24. (set #ask-function-help
  25. (cat "Here you can install the program version of HD_Frequency"
  26.      " that fits best to your hardware:\n"
  27.      " 68000 1 MB version needs at least 310 kB Chip and 520 kB"
  28.      " other memory\n"
  29.      " 68000e version is for AGA machines (a12oo and a4ooo) and for"
  30.      " those who want to use only sampling rates upto 30kHz on non"
  31.      " AGA machines.\n"
  32.      " 68030 version gives you the posibilty to replay 2 or more tracks"
  33.      " >30kHz on an OCS/ECS machine. A very fast processor (68030 >25 MHz)"
  34.      " is the absolute minimum.\n"
  35.      " For further information consider your manual."
  36.  
  37.  
  38.  
  39.  
  40. ))
  41.  
  42. (set #ask-function-1
  43. (cat "68000 1 MB Version"
  44. ))
  45.  
  46. (set #ask-function-2
  47. (cat "68000 2 MB Version (for AGA machines)"
  48. ))
  49.  
  50. (set #ask-function-3
  51. (cat "68020 2 MB Version"
  52. ))
  53.  
  54. (set #which-disk
  55. (cat "Where to install HD-Frequency ?"
  56. ))
  57.  
  58. (set #which-disk-help
  59. (cat ""
  60. ))
  61.  
  62. ;=============================================================================
  63. ; make sure we are running under V37
  64.  
  65. (if (< (/ (getversion) 65536) 37)
  66.  
  67.  
  68. (
  69.     (abort #bad-kick)
  70. ))
  71.  
  72. (set old_wb
  73. (cat    "Work:"
  74. ))
  75.  
  76. (set old_wb (substr old_wb 0 (- (strlen old_wb) 1)))
  77. (set old_wb (expandpath old_wb))
  78. (user 2)
  79.  
  80.  
  81. ;=============================================================================
  82.  
  83.  
  84. (message #introduction)
  85.  
  86. (set motorola 0)
  87.  
  88. (set motorola (askchoice (prompt #ask-function)
  89.               (help #ask-function-help)
  90.              (choices #ask-function-1 #ask-function-2
  91.                       #ask-function-3
  92.              )
  93.              (default 0)
  94.     )
  95. )
  96.  
  97.  
  98.  
  99. (user 0)
  100. (set old_level @user-level)
  101.  
  102. ;=============================================================================
  103.  
  104. (if (= (strlen old_wb) 0)
  105. (
  106.     (user 2)
  107.     (set target (askdir (prompt #which-disk)
  108.                         (help #askdir-help)
  109.                         (default "work:")
  110.                         (disk)
  111.                 )
  112.     )
  113.     (user old_level)
  114. )
  115. (
  116.     (if (askbool (prompt (#confirm-target old_wb))
  117.                  (default 1)
  118.         )
  119.     (
  120.         (set target old_wb)
  121.     )
  122.     (
  123.         (set target (askdir (prompt #which-disk)
  124.                             (help #which-disk-help)
  125.                             (default old_wb)
  126.                             (disk)
  127.                     )
  128.         )
  129.     ))
  130. ))
  131.  
  132.  
  133. (set @default-dest target)
  134. (set stash_old (tackon target "old")
  135. )
  136.  
  137.  
  138.         
  139.             (if (= 0 motorola)
  140.             (
  141.                 (copyfiles (source
  142.                            (cat "HDFrequency_68000"))
  143.                            (dest (tackon target "HDFrequency"))
  144.                 )
  145.                 (copyfiles (source
  146.                            (cat "HDFrequency_68000.info"))
  147.                            (dest (tackon target "HDFrequency"))
  148.                 )
  149.             ))
  150.               
  151.                 (if (= 1 motorola)
  152.             (
  153.                 (copyfiles (source
  154.                            (cat "HDFrequency_68000e"))
  155.                            (dest (tackon target "HDFrequency"))
  156.                 )
  157.                 (copyfiles (source
  158.                            (cat "HDFrequency_68000e.info"))
  159.                            (dest (tackon target "HDFrequency"))
  160.                 )
  161.             ))
  162.  
  163.                 (if (= 2 motorola)
  164.             (
  165.                 (copyfiles (source
  166.                            (cat "HDFrequency_68020"))
  167.                            (dest (tackon target "HDFrequency"))
  168.                 )
  169.                 (copyfiles (source
  170.                            (cat "HDFrequency_68020.info"))
  171.                            (dest (tackon target "HDFrequency"))
  172.                 )
  173.             ))
  174.  
  175.  
  176. ; copy drawer icon
  177. (copyfiles (source
  178.                            (cat "HDFrequency.info"))
  179.                            (dest (tackon target ""))
  180.                 )      
  181.  
  182. (complete 100)
  183.  
  184.  
  185.